uploading file

uploading_File
fileInput(inputId, label, multiple=FALSE, accept=NULL)
ui.R(uploading_File)
library(shiny)
shinyUI(pageWithSidebar(
headerPanel("CSV Viewer"),
sidebarPanel(
fileInput("file1", "choose CSV File", accept=c("text/csv", "text/comma-separated-values, text/plain", ".csv", ".spc")),
tags$hr(),
checkboxInput("header", "Header", TRUE),
radioButtons("sep", "Seperator", c(Comma=",", Semicolon=";", Tab="\t"), "Comma"),
radioButtons("quote", "Quote", c("None"='', "Double Quote"="''", "Single Quote"="'"), "Double Quote")
),
mainPanel(
tableOutput("contents")
)
))
server.R(uploading_File)
library(shiny)
shinyServer(function(input, output){
output$contents<-renderTable({
inFile<-input$file1
if(is.null(inFile)) return(NULL)
read.csv(inFile$datapath, header=input$header, sep=input$sep, quote=input$quote)
})
})